Sub MAIN
Dim TypeArr$(4)
TypeArr$(0) = "Jones Account"
TypeArr$(1) = "Smith Account"
TypeArr$(2) = "Personal Letters"
TypeArr$(3) = "Temporary"
TypeArr$(4) = "Great American Novel"
TryAgain:
Begin Dialog UserDialog 325, 112
 Text 6, 10, 300, 18, "Project Name or Path"
 ComboBox 6, 25, 200, 85, TypeArr$(), .ProjDir
 OKButton 250, 80, 40, 18
End Dialog
Dim Project As Dialog UserDialog
Dialog Project
Answer$ = Project.ProjDir
Select Case Project.ProjDir
 Case "Jones Account"
  ChDir "C:\jones"
 Case "Smith Account"
  ChDir "C:\smith"
 Case "Personal Letters"
  ChDir "C:\personal"
 Case "Temporary"
  ChDir "C:\temp"
 Case ""
  Goto TryAgain
 Case Else
  Err = 0
  On Error Goto ErrorMsg
  ChDir Answer$
  Goto Done
ErrorMsg:
 Prompt$ = "Create Directory: " + Answer$ + " ?"
 Num = MsgBox(Prompt$, "Path Not Found", 36)
 If Num = - 1 Then
  MkDir Answer$
  ChDir Answer$
 Else
  Goto TryAgain
 End If
Done:
End Select
End Sub